﻿namespace Controls

type public VisualHostControl() as this =
    inherit System.Windows.FrameworkElement()
    let _vc = new System.Windows.Media.VisualCollection(this)
    member this.AddVisual(dv:System.Windows.Media.DrawingVisual) =
        do _vc.Add(dv) |> ignore
    override this.VisualChildrenCount with get() = _vc.Count
    override this.GetVisualChild(index) = _vc.[index]


